home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / allmodule.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  294 b   |  24 lines
  1. module AllModule interface;
  2.  
  3. export
  4.   AllInterface = all;  { Same as `AllInterface = (a, b, Bar);' }
  5.  
  6. var
  7.   a, b: Integer;
  8.  
  9. procedure Bar (i: Integer);
  10.  
  11. end.
  12.  
  13. module AllModule implementation;
  14.  
  15. procedure Bar (i: Integer);
  16. begin
  17.   b := a
  18. end;
  19.  
  20. to begin do
  21.   a := 42;
  22.  
  23. end.
  24.